﻿Imports DTO
Imports BUS
Public Class frmThemQuanLy

    Public Delegate Sub ThemNV(nv As BoPhanDTO)

    Public Event LamMoiNVKhiThem As ThemNV

    Public maBP As String
    Public TenBP As String
    Public GhiChu As String
    Public ConQL As Integer

    Public kt As Integer = 0

    Sub ThemBoPhan()
        KhoHangBUS.DongKetNoi.Close()
        Dim BoPhanDTO As New BoPhanDTO
        BoPhanDTO.TenBoPhan = txtThemTenBP.Text.Trim()
        BoPhanDTO.GhiChu = txtThemGhiChu.Text.Trim()
        If chkConQuanLy.Checked = True Then
            BoPhanDTO.MaTrangThai = 1
        Else
            BoPhanDTO.MaTrangThai = 0
        End If
        If BoPhanBUS.ThemBoPhan(BoPhanDTO) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Bạn đã thêm thành công bộ phận mới", "Thành công", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên bộ phận không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        RaiseEvent LamMoiNVKhiThem(BoPhanDTO)
    End Sub

    Sub CapNhatBoPhan()
        KhoHangBUS.DongKetNoi.Close()
        Dim BoPhanDTO As New BoPhanDTO
        BoPhanDTO.MaBoPhan = txtThemMaBP.Text.Trim()
        BoPhanDTO.TenBoPhan = txtThemTenBP.Text.Trim()
        BoPhanDTO.GhiChu = txtThemGhiChu.Text.Trim()
        If chkConQuanLy.Checked = True Then
            BoPhanDTO.MaTrangThai = 1
        Else
            BoPhanDTO.MaTrangThai = 0
        End If
        If BoPhanBUS.CapNhapBoPhan(BoPhanDTO) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Bạn cập nhập thành công", "Thành công", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên bộ phận không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub btnLuu_Click(sender As Object, e As EventArgs) Handles btnLuu.Click
        NhanVienBUS.DongKetNoi.Close()
        If kt = 1 Then
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 27)
            If pq.Sua = True Then
                CapNhatBoPhan()
                HeThongBUS.themNhatKy(frmMain.maND, "Quản lý bộ phận", "Cập nhật", maBP)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 27)
            If pq.Them = True Then
                ThemBoPhan()
                HeThongBUS.themNhatKy(frmMain.maND, "Quản lý bộ phận", "Thêm", maBP)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
        KhoHangBUS.DongKetNoi.Close()
        Me.Close()
    End Sub
End Class